home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok58.lha / NPrint / txt / StringForm.def < prev    next >
Text File  |  1993-08-15  |  2KB  |  55 lines
  1. (**********************************************************************
  2.  
  3.     :Program.    StringForm.def
  4.     :Contents.   string formatting procedures
  5.     :Author.     Nicolas Benezan [bne]
  6.     :Address.    Postwiesenstr. 2, D7000 Stuttgart 60
  7.     :Phone.      711/333679
  8.     :Copyright.  Public Domain
  9.     :Language.   Modula-2
  10.     :Translator. M2Amiga A+L V3.2d
  11.     :History.    V1.0a [bne] 11.May.1989
  12.  
  13. **********************************************************************)
  14.  
  15. DEFINITION MODULE StringForm;
  16.  
  17. (* All procedures will truncate the string if it was too long to
  18.    fit into the array boundaries. *)
  19.  
  20. PROCEDURE AppendBlanks(VAR String:ARRAY OF CHAR;
  21.                            Width:INTEGER);
  22. (*:Semantic.  Appends blanks to <String> until it has the length <Width>.
  23. *)
  24.  
  25. PROCEDURE CenterAdjust(VAR String:ARRAY OF CHAR;
  26.                            Width:INTEGER);
  27. (*:Semantic.  Centers <String> within a field <Width> chars wide.
  28. *)
  29.  
  30. PROCEDURE CutBlanks(VAR String:ARRAY OF CHAR);
  31. (*:Semantic.  Cuts leading and trailing blanks.
  32. *)
  33.  
  34. PROCEDURE EmptyString(String:ARRAY OF CHAR):BOOLEAN;
  35. (*:Result.    TRUE, if <String> has the length 0 or consists of blanks only.
  36. *)
  37.  
  38. PROCEDURE Indent(VAR String:ARRAY OF CHAR;
  39.                      Margin:INTEGER);
  40. (*:Semantic.  Inserts <Margin> blanks on the left side of <String>.
  41. *)
  42.  
  43. PROCEDURE LeftInsertZeroes(VAR String:ARRAY OF CHAR;
  44.                                Width:INTEGER);
  45. (*:Semantic.  Inserts zeroes until the length of <String> is <Width>.
  46. *)
  47.  
  48. PROCEDURE RightAdjust(VAR String:ARRAY OF CHAR;
  49.                           Width:INTEGER);
  50. (*:Semantic.  Right-adjusts <String> within a field <Width> chars wide.
  51. *)
  52.  
  53. END StringForm.
  54.  
  55.